PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Utilities/Random Stuff/Clock/card_2886.txt

Text File | 1988-04-24 | 5.5 KB | 256 lines

-- card: 2886 from stack: in
-- bmap block id: 3320
-- flags: 0000
-- background id: 2750
-- name:
----- HyperTalk script -----
on opencard
  hide menubar
  put the long date into card field "date"
end opencard

on idle
  if the time is not card field "digitaltime" then
    global handpos
    global smhandpos
    global alarmset
    put the time into card field "digitaltime"
    if ((alarmset is 1) and (card field "digitaltime" is card field "settime")) then
      play "boing" "c g f e d b c"
      send mouseup to card button "off"
    end if
    choose select tool
    domenu "select all"
    domenu "clear picture"
    get the seconds
    convert it to dateitems
    put item 5 of it into smhandpos
    put item 4 of it into handpos
    if handpos > 12 then subtract 12 from handpos
    choose line tool
    minutehand
    hourhand
    choose browse tool
  end if
end idle

on hourhand
  global smhandpos
  set linesize to 2
  put 2 * pi * smhandpos/60 into angle
  put 261 + round(80 * sin(angle)) into x
  put 169 - round(80 * cos(angle)) into y
  drag from 261,169 to x,y
end hourhand

on minutehand
  global handpos
  set linesize to 3
  put 2 * pi * handpos/12 into angle
  put 261 + round(50 * sin(angle)) into x
  put 169 - round(50 * cos(angle)) into y
  drag from 261,169 to x,y
end minutehand

on closecard
  show menubar
end closecard



-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=289 right=306 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: digitaltime


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=315 top=260 right=277 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: date


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=7 top=32 right=56 bottom=31
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go "home"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=56 top=96 right=110 bottom=102
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set
----- HyperTalk script -----
on mouseUp
  set hilite of button "on" to false
  set hilite of button "off" to false
  set hilite of button "set" to true
  show card field "settime"
  put empty into card field "settime"
  click at the loc of card field "settime"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=56 top=111 right=125 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: On
----- HyperTalk script -----
on mouseUp
  global alarmset
  set hilite of button "on" to true
  set hilite of button "off" to false
  set hilite of button "set" to false
  show card field "settime"
  if card field "settime" is empty then
    send mouseup to card button "set"
  end if
  send "closefield" to card field "settime"
  put 1 into alarmset
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=56 top=126 right=140 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Off
----- HyperTalk script -----
on mouseUp
  global alarmset
  set hilite of button "on" to false
  set hilite of button "off" to true
  set hilite of button "set" to false
  hide card field "settime"
  put 0 into alarmset
end mouseUp



-- part 12 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=88 top=72 right=89 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: settime
----- HyperTalk script -----
on closefield
  if ((card field "settime" is not empty) and (word 2 of card field "settime" is empty)) then
    if the hilite of card button "am" is true then
      put " am" after card field "settime"
    else
      put " pm" after card field "settime"
    end if
  end if
end closefield




-- part 14 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=116 top=95 right=111 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: am
----- HyperTalk script -----
on mouseUp
  set hilite of card button "am" to true
  set hilite of card button "pm" to false
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=116 top=111 right=125 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pm
----- HyperTalk script -----
on mouseUp
  set hilite of card button "am" to false
  set hilite of card button "pm" to true
end mouseUp



-- part contents for card part 2
----- text -----
12:11 AM

-- part contents for card part 3
----- text -----
Sunday, April 24, 1988